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-- file DisplayControl .Mesa 

" last edited by Johnsson, October 14, 1977 2:67 PM 

DIRECTORY 

AltoFileDefs: FROM "AltoFileDefs". 
ControlDefs: FROM "ControlDef s", 
DirectoryOefs: FROM "DirectoryDefs" , 
DisplayDefs: FROM "DisplayDef s", 
FontDefs: FROM "FontDefs", 
ImageDefs: FROM "ImageDefs**, 
SegmentDefs: FROM "SegmentDef s", 
StreamDefs: FROM "StreamDefs" , 
StringDefs: FROM "StringDefs" , 
SystemDisplay: FROM "SystemDisplay" ; 

DisplayControl: PROGRAM 

IMPORTS DirectoryOefs, DisplayDefs. FontDefs. ImageDefs. SegmentDefs, StreamDefs, StringDefs, SystemD 
♦*isplay = 

BEGIN 

mesafont: short ImageDefs . FileRequest ♦• [ 

link: NIL, file:, access: SegmentDefs. Read, 

body: short[f ill :, name: "MesaFont . al . "]] ; 
sysfont: short ImageDefs . FileRequest *- [ 

link: @mesafont, file:, access: SegmentDefs. Read, 

body: short[f ill : .name: "SysFont.al ."]]; 
typescript: short ImageDefs. FileRequest ^ [ 

link: Qsysfont, file:, 

access: SegmentDefs .Read+SegmentDefs.Write+SegmentDefs .Append, 

body: short[f il 1 : ,name: "Mesa. Typescript ."]] ; 

font: FontDefs . FontHandle; 

fonts eg: SegmentDefs . Fi leSegmentHandle; 

initialize: BOOLEAN *- TRUE; 

imaging: BOOLEAN; 

cleanupitem: ImageDefs .Cleanupltem ^ [ 
1 ink: , proc: Cleanup]; 

Cleanup: ImageDefs .CleanupProcedure = 
BEGIN 

file: SegmentDefs. FileHandle; 
i: CARDINAL; 

si: StreamDefs .Streamlndex; 
ts: StreamDefs .StreamHandle; 
SELECT why FROM 

Finish. Abort, Save => 
BEGIN 

IF -initialize AND SystemDispl ay . typescript ^ NIL THEN 
BEGIN 

StreamDefs.TruncateDiskStream[SystemDisplay. typescript]; 
SystemDisplay . typescript ♦- NIL; 
END; 
IF why = Save AND -initialize THEN 
BEGIN 

DisplayDefs.Disp layoff [black]; 
font .destroy[font] ; 

SegmentDefs.DeleteFileSegment[fontseg]; 
END; 
IF why # Save THEN RETURN; 

imaging ^ (REGTSTFR[ControlDef s .SDreg]+ControlDef s . sAddFileRequestjt ^ 0; 
mesafont. file ♦- NIL; 

IF imaging THEN ImageDefs .AddF i leRequest[@'^iesafont]; 
sysfont .file ♦- NIL ; 

If imaging THEN ImageDefs .AddF i leRequest[@sys font] ; 
typescr ip t . f i 1 e ♦- NIL; 

IF imaging THFN ImageDefs .AddF i leReques t[@typescr ipt] ; 
END; 
Restore => 

BEGIN OPEN SegmentDefs; 

If ( f ile^mesafont. f lie) = NIL TflEN file ♦- sysfont. file 

ELSE ReleaseF i 1e[sysfont . f ile] ; 

fonts'eg <- NewF i leSegmen t[ f i 1 e .Def aul tBase.Def aul tPages , Read] ; 

font ♦- FontDefs .Createront[fontseg] ; 
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IF initialize THEN 

BEGIN initialize ♦• FALSE; DisplayOefs . InitDisplay[72 ,30,20 , font] END 
ELSE 

BEGIN SystemDisplay.SetFont[font]; Displ ayDef s.Disp1ayOn[] END; 
IF (file^typescript.file) = NIL THEN 

file ♦• NewFile[typescript.name, Read+Write+Append, Defaul tVersion]; 
SystemDisplay.SetTypeScript[ 

StreamDef s .CreateByteStream[f ile, Read+Write+Append]]; 
END; 
InLd => 

IF SystemDisplay. typescript # NIL THEN 

StreamDef s.OpenDiskStr eam[SystemDi splay. typescript]; 
OutLd => 

BEGIN OPEN StreamDefs; 

IF (ts*-SystemDisplay. typescript) = NIL THEN RETURN; 
si ♦• Getlndex[ts] ; 
ts.put[ts, 15C]; 

FOR i IN [0..9) DO ts.put[ts , '-] ENDLOOP; 
Setlndex[ts, si]; 
CloseDiskStream[ts]; 
END; 
ENDCASE; 
END; 

-- file requests 

ProcessFileRequests: PROCEDURE [rHead: POINTER TO ImageDef s . FileRequest] - 
BEGIN OPEN AltoFileDefs; 

checkone: PROCEDURE [fp: POINTER TO FP. dname: STRING] RETURNS [BOOLEAN] « 
BEGIN 

ss: StringDef s.SubStringOescriptor ^ [dname, , dname. length]; 
r: POINTER TO ImageDef s . F i leRequest; 
prev: POINTER TO ImageDef s . Fi leRequest ♦• NIL; 
FOR r ♦■ rHead. r.link UNTIL r = NIL DO 
IF (WITH r SELECT FROM 

long => StringDef s . Equi valentSubStrings[@ss ,0name] , 
short => StringDef s . Equi valentString[dname, name] , 
ENDCASE => FALSE) THEN 
BEGIN 

IF r.file = NIL THEN r.file ^ SegmentDefs . InsertFi le[fp , r . access] 
ELSE r.file.fp ♦- fpt; 
IF prev = NIL THEN rHead ^ r.link 
ELSE prev. link ♦- r.link; 
END 
ELSE prev ♦• r; 
ENDLOOP; 
RETURN[rHead = NIL] 
END; 

DirectoryDefs. E nume r at eDi rectory [check one] ; 
END; 

ImageDefs . Ad dC lean up Procedure [©cleanup item] ; 
Cleanup[Save] ; 

IF imaging THEN STOP ELSE ProcessFi leRequests[0typescript] ; 
Cleanup[Restore] ; 

END. . . 



